home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh40.d64
/
demo 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
454b
|
15 lines
100 REM LOTTOSIMULATION
110 DIM ZAHL%(49)
120 FORA=1TO6:REM LOTTOZAHLEN ERMITTELN
130 ZUFALL=INT(RND(1)*49)+1:IFZAHL%(ZUFALL)=1THEN130
140 ZAHL%(ZUFALL)=1:NEXT
150 PRINT"[147]BITTE GEBEN SIE IHRE ZAHLEN EIN"
160 FORA=1TO6:REM TIPPVORSCHLAEGE EINGEBEN
170 INPUT" ][157][157]";EIN(A):IFEIN(A)<1OREIN(A)>49THENPRINT"UNGUELTIG":GOTO170
180 NEXT
190 PRINT:PRINT"DIE AKTUELLEN LOTTOZAHLEN SIND"
200 FORA=1TO49:IFZAHL%(A)=1THENPRINTA;
210 NEXT
220 FORA=1TO6:IFZAHL%(EIN(A))=1THENZAELER=ZAELER+1
230 NEXT:PRINT:PRINT:PRINT"SIE HATTEN";ZAELER;"ZAHL(EN) RICHTIG"